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DISCLAIMER 



Although each program has been tested by its contributor, no 
warranty, express or implied, is made by the contributor or 
1620 USERS Group, as to the accuracy and functioning of the 
program and related program material, nor shall the fact of 
distribution constitute any such warranty, and no responsibility 
is assumed by the contributor or 1620 USERS Group, in con- 
nection therewith. 



1620 USERS GROUP PROGRAM REVIEW AND EVALUATION 
Program No. Date 



Program Name: 



1. Does the abstract adequately describe what the program is and 

what it does ? Yes No 

Comment 

2. Does the program do what the abstract says ? Yes No 

Comment ™* 

3. Is the Description clear, understandable, and adequate? Yes No 

Comment . 

4. Are the Operating Instructions understandable and in sufficient 

detail? Yes No_ 

Comment 

Are the Sense Switch options adequately described (if applicable)? Yes No_ 

Are the mnemonic labels identified or sufficiently 

understandable? Yes No_ 

Comment 

#1>. Does the source program compile satisfactorily (if applicable)? Yes No_ 

Comment 

6. Does the object program run satisfactorily? Yes No_ 

Comment 

7. Number of test cases run 



Are any restrictions as to data, size, range, etc. covered 

adequately in description? Yes No_ 

Comment 

8. Does the Program meet the minimal standards of the 1620 Users 

Group? Yes No_ 

Comment 

9. Please list any suggestions to improve the usefulness of the 
program. These will be passed on to the author for his consideration. 
Comment^ 

Please return to: Your Name 



Mr. Robert J. Robinson (PREP) Company 

Marquette University 

& Computing Center Address 

p 1515 W. Wisconsin Avenue , 

Milwaukee 3, Wisconsin User Group 

Code 

THIS REVIEW FORM IS PART OF THE 1620 USER GROUP ORGANIZATION'S PROGRAM 
REVIEW AND EVALUATION PROCEDURE. NONMEMBERS ARE CORDIALLY INVITED 
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US 20 USERS Group Library 



Program Abstract 



Title (If subroutine state in Title) FOR 'IRAN KARK SiSNSa CARD DECODER PROGRAM 
S ubject Classificatio n 1»3» 



AuthoryQrganization; h. B. Kerr, Tennessee polytechnic Institute , Cookeville , 
Tennessee (3Uii) ' 

Direct Inquiries to* 

Naaa e A * B. Kerr, Director, Computer Center Address Box 21A Tennessee Tech 
Tfiimf f ssee F?3,Y^^g Iflfftttttte, teQkft7i11ft,1^nnF hone 526-2181 Ex. 123 ~ 
PuTPose/neacriptiont Allows a Fortran Program to be made up from special mark 
sense cards, eliminating the necessity for us ing a key punch, i»e,, programmer 
can make up his own Fortran car ds without acc es s to key pun ch? _ 



Mathematical Method : N/A . 

Restrictions, Range s There is no lim it to either the .size. .cfLJthe Fort ran 
statement or the Fortran program, " * 



Storage Requirements i < 20,000 ' ; 

Equipment Specifications: 

Memory 20 K x ItO K 6 OK K Automatic Divide t Tee No 

Indirect Addressing? Yes x . N o . ' O ther Special yeatees RequLred^s, 'M 

Additionai'Reaarks (Include at author's disc rft fr ioi fc , Language ;Fixed/Float jRelocat > 
. ability) ( Optional : Running times Approximate number of times run successfully! 
, Programming Hours) Program written in SPS with fixed point arithmetic. The 
running time depends upon the size of the Fortran source program being punched. 

Approximately fifty Fortran source programs have been assembled using this ' 
program. 
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FORTRAN MARK SENSE CARD DEGQDiiR PROGRAM 



DESCRIPTION.- THIS PROGRAM WAS DEVELOPED TO OPERATE IN rowjiiN^TTnu utru 

MARK SENSE CARDS OF A FORMATES IMILARTO THE !!• CADETRAN II? N FORTRAN 
MARK SENSE CARDS DEVELOPED BY THE U. S* MILITARY ACADEMY .IT WAS 
DECIDED .TO MODIFY THE CARD FORMAT OF CADETRAN TO MAKE IT SUITABLE FOR 
USE WITH FORTRAN II D FOR THE IBM 1311 DISK FILE. 

^L^K^cp^LIc^^ 1 : C ?5° S WI ™ A PENGIt CONTAINING A HIGH GRAPHITE 
?2*I E ? T 'SEE APPENDIX ) » IT IS POSSIBLE FOR A BEGINNING (OR EXPER- 

S2po2ir,r25 T ^\ P 52 6RAMM ^ T ° PREPARE HIS FORTRAN STATEMENT CARDS 
i^r^2 D !?L2Li KEY PUNCH * THE PROGRAMMER SIMPLY FORMULATES HIS 
FORTRAN STATEMENT CARDS BY MARKING THE APPROPRIATE SLOTS ON THE 
SPECIALLY PRINTED CARDS. PROVISION IS MADE FOR CONTINUING THE STATF- 

in^^^'JE"* CARD T0 THE NEXT AND formISt 22 Ind pJSch- 

I NG CONTINUATION CARDS. THE MARKED CARDS ARE THEN PASSED THROUGH 

?h2 E cXrds C 12e rJS E r iT , H 27 positioL T o^^aSk1enIe R brSshes. 

I2!.££J? S t? E THEN DECODED BY THE SUBJECT PROGRAM, INTERPRETED (IF 
Xf« E S ^"LTS P * 0CES * ED AS WITH ANY OTHER FORTRAN PROGRAM. A 

£ IL IZLl.tl ^* NUMBER IS PtACE ° IN CAR0 C0LUMNS 78 THROUGH 80 
OF THE FORTRAN STATEMENT CARDS. 

MARKING THE FORTRAN CARDS - 

l * mIS^SS!! 1 .!!^!?^ ,F IT 15 OESIRED TO USE A STATEMENT NUMBER, 
INDICATED SLOTS (USING A FIRM PRESSURE WITH A SHARP 
JOINTED* HIGH GRAPHITE CONTENT PENCIL!. ONLY A TWO DIGIT STATE- 
WENT IS PERMITTED IWHICH SHOULD BE SUFFICIENT FOR MOST PROGRAMS ) * 

*• CONTtNUATION - IF THE CARD IS A CONTINUATION OF A PREVIOUS CARD. 
I?Ll # * CONTINUATION ... SLOT SHOULD BE MARKED* IF IT IS NOT 
THE SUBJECT PROGRAM ASSUMES THAT THIS IS A NEW STATE- 

■ WENT* 

3 * f22SJ T 5 I OF THE ... COMMENTS ... SLOT CALLS FOR A 

♦Sn^LILS! PLACED I N CARD COLUMN 1, THEREBY MAK ING THE FOR- 
TRAN 'STATEMENT A COMMENTS STATEMENT. 

4# i{?.*J F 2!5 ATS * CALL » DOt El^C. - MARKING ANY ONE OF THESE SLOTS 
CALLS FOR THE APPROPRIATE WORD OR WORDS TO BE PLACED IN THE 
OUTPUT CARD. A BLANK USUALLY FOLLOWS THE WORD OR WORDS. ONLY 
5?L2£ ™ E St0TS lfl THE ™ REE SPECIAL COMMAND COLUMNS MAY BE 
*ARKED. FAILURE TO MARK ONE OF THESE SLOTS WILL CALL FOR NO 
CEjAiCTERS OR BLANKS TO BE TRANSFERRED TO THE OUTPUT FORTRAN 
CARD. 

5 * FIE ^ D 5 "IN THE TWO MARK SENSE COLUMNS OF EACH FIELD ARE ALL 
NUMBERS AND CHARACTERS ORDINARILY USED IN FORTRAN STATEMENTS. 

LEFT |HAND FIELD - ALL PUNCTUATION ORDINARILY USFD IN FORTRAN AND 
MOST OPERATORS* AS WELL AS CERTAIN FREQUENTLY USED SUB- 
ROUTINES ARE AVAILABLE IN THESE COLUMNS. IF NO MARK IS 
MADE IN THESE COLUMNS. NO CHARACTERS, PUNCTUATION OR BLANKS 
ARE TRANSFERRED TO THE OUTPUT FORTRAN CARD. 
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RIGHT HAND FIELD - ALL NUMBERS. ALPHABETICAL CHARACTERS I AS 

WELL AS THE SLASH. INDICATING DIVISION) ARE AVAILABLE IN 
THESE COLUMNS. IF NO SLOTS ARE MARKED, A BLANK WILL BE 
PLACED INTO THE OUTPUT FORTRAN CARD. IF A BLANK IS NOT 
DESIRED* THE 12 ZONE PUNCH ONLY (PRINTED A THROUGH I ON 
THE CARD) SHOULD BE MARKED. IF THERE IS NO MORE INFORMA- 
TION TO BE PLACED ON THE CARD, ONLY THE 11 ZONE PUNCH 
(PRINTED J THROUGH R ON THE CARD) SHOULD BE MARKED. MARKING 
THIS SLOT ALONE WILL CAUSE THE SUBJECT PROGRAM TO IGNORE THE 
REMAINDER OF THE CARD. 

OUTPUT - THE OUTPUT CARDS WILL BE IN THE PROPER FORTRAN FORMAT AS DESCRIB- 
ED IN THE IBM FORTRAN II D LITERATURE, WITH THE EXCEPTION THAT ONLY A 
J W 2J )I '£ IT STATEMENT NUMBER IS PERMITTED^ IF DESIRED, THE OUTPUT 
CARDS MAY BE INTERPRETED FOR EASE IN DEBUGGING. 

OPERATING INSTRUCTIONS - 

1. MARK THE PRINTED CARDS AS DESCRIBED ABOVE AND PUNCH ON A 27^27 
o^f^e" ™ E ^^R°OUCING PUNCH WITH 27 POSITIONS OF MARK SENSE 

BRUSHES. 

2. CLEAR THE MEMORY OF THE COMPUTER. 

3# r L *i*$ l^Jtli^il PR06RA *» FOLLOWED BY THE PUNCHED MARK SEHSE 
CARDS INTO THE READ HOPPER OF THE 1622. v 

4. PRESS RESET (1620)9 

5. PRESS LOAD 11622) 

6. WHEN THE MANUAL LIGHT COMES 0N» PRESS START 11620* 

7. PRESS PUNCH START (1622) 

8. WHEN THE REAO-NO-FEED LIGHT COMES 0N» PRESS READ START U622) 

9. CLEAR THE OUTPUT FORTRAN CARDS FROM THE PUNCH STACKER 

N0TE XXA SINCE THE LAST CARD INDICATOR IS CONSULTED IN THE SUBJECT 
«n?5?2r: 2° ?° T ATTEMPT TO BATCH PROCESS PROGRAM BY STA<*IS£ 
SKI! 1 "! PR06RAM lH THE READ HOPPER (SEQUENCE NUMBERS WILL BE 
CONTINUOUS INSTEAD OF STARTING WITH OOl AS IS USUALLY DESIRED) 

1G# pp A n E J^T NE fI^ R0GRAM IN THE REA0 HOPPER, PRESS START (1620), 
READ START (1622). AND GO BACK TO STEP 7. 
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TOP TFM CNTR»0>9 

TDM K2>1 

TDM KEY ♦ 1 

TDM Kl,l 
START RACD INPUT 

TFM FLAG+6 » I NPUT+3*2-3 
FLAG SF INPUT+3*2-3 

AM FLAG+6, 2 

CM FLAG+6* tNPUT+28*2-3 

BNE FLAG 

TFM LEFT+6 » I NPUT+6*2-2 
TFM RIGHf+li *INPUT+7*2-2 
SF INPUT+3*2-3 
CM INPUT+3*Z-2*10»10 
BE LEFT 
BD BD WRITE* KEY'- 
TD *+23,'NUM 
TFM OUTPUT+6*2-2»70»lO 
CM NUM,4*10 
BNH *+60 
RCTY 
WATYER3 
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START 


WRITE 
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*+24 

OUTPUT »43»10 
TYPE+6,73 »610 
*+60 

COUNT ♦ 14 , 10 
WORD, ACCEPT 
TRANS »COUNT 
LEFT 

TYPE+6»74»610 
*+60 

COUNT, 14, 10 
WORD, FORMAT 
TRANS, COUNT 
LEFT 

TYPE+6, 75*610 
*+60 

COUNT»10»10 
WORD, READ 
TRANS»COUNT 
LEFT 

TYPE+6, 76»610 
*+60 

COUNT»12»10 
WORD,PRINT 
TRANS»COUNT 
LEFT 

TYPE+6»77,610 
*+60 

COUNT ,20 » 10 
WORD, D I MEN 
TRANS »COUNT 
LEFT 

TYPE+6»78,610 
*+60 

COUNT»14,10 
WORD, COMMON 
TRANS tCOUNT 
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WORD, PAUSE 
TRANS , COUNT 
LEFT 
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COUNT»10,10 
WORD, STOP 
TRANS »COUNT 
INPUT+4*2-2, 10,10 
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WD TF LOCATE, WORD, 6 
CM NUM,4»10 
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RCTY 
WATYER3 
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R START 
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TDM KEY, 
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32,4946246245 5 562450062664963434800 

16,43 565563495 56445 

12,464563434800 

14,59454356594400 

24,444546495545004449625200 

2 4,45 58644965415 345 55434500 

18,466455436 349565 500 

2 2,62 6442 59566463495545 00 

10,4341535300 

14,59456364595500 





A 


ONE 


TF 




88 


READ 


DC 


PRINT 


DC 


DIMFN 


DC 


COMMONDC 


PAUSE 


DC 


STOP 


DC 


KEY 


OS 


NUM 


DC 


ADDR 


DC 


ADDR1 


DC 


FIND 


DC 


EXPF 


DC 


SINF 


DC 


COSF 


DC 


SQRTF 


DC 


ATANF 


DC 


IFSS 


DC 


CONTINDC 


FETCH 


DC 


RECORDDC 


DD 


DC 


EQUI 


DC 


FUNCT 


DC 


SR 


DC 


CALL 


DC 


RETURNDC 



CLINK 


DC 


2 0,43415 3 5 3005 34955 5 200 


ABSF 


DC 


8 ,41426246 


LOGF 


DC 


8 ,53564746 


WORD 


DS 


40 


CEXIT 


DC 


20,434153 53004567496300 


GOTO 


DC 


12,475600635600 


IF 


DC 


4,4946 


DO 


DC 


6,445600 


EXP 


DC 


4,1414 


CLOSE 


DC 


2 ,04 


COMMA 


DC 


2,23 




DC 


1,0 


CLEAR 


DS 


159 


FORMATDC 


14,46565954416300 


DECIMLDC 


2 ,03 


END 


DC 


8,45554400 


ER3 


DAC 


28, TOO MANY CONTINUATION 


PLUS1 


DC 


2,10 ' 


NEG1 


DC 


2,20 


STAR 


DC 


2,14 


EQUAL1DC 


2,33 


OPEN 


DC 


2 ,24 


INPUT 


DAS 


80 


STNO 


DC 


2,0 


OUTPUTDAS 


90 


K2 


DS 


1 


COUNT 


DS 


2 


PCH 


DC 


12,576455434800 


ACCEPTDC 


14,41434345576300 


CNTR 


DC 


3,0 


LOCATEDC 


5,0 


CL1 


DC 


16,0 


Kl 


DS 


1 



DENDTOP 



SAMPLiS FOR IRAN SXlTOfSNTt 




c9z>c9=)c 



WTE: ONtY ONE WORD 
VERB, OPERATOR, 1 
M WISER OR LETTER PER*! 
IN OME COLUMN. -_„„, 



SUB* 

mm 



WORD 



^1 FIElIi 



FtaD 2 



FIEti I 



* 



SHU « 



3 d*x?tb cSbdlfc Ad$j £bd$f> tSitfc &<& dfcdlfc £A & 



§i ^a*, a^jjL feciSi; cSbiSi 



1= 



db<£>4»<!g> 



FIELD 7 



c4=F 



FIELD I 



FIELD 9 



c?4^czbc°4^d3c?4i 



3 c~>^jjjk c~>c5z) 



FIELD 10 



>c A fe 



FIELD It 



0*1* Mtt. 1 




Card No. 2 
.32 Format (F10.6,lU,9HIEST CARD) 
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